Otherware/Otherware_1_SB_Development.iso/mac/hypercar/xcmd/cliptoic.cpt/clipToICON XCMD/background_2726.xml

Extensible Markup Language | 1991-10-26 | 11.1 KB | 326 lines

<?xml version="1.0" encoding="utf-8" ?>
<!DOCTYPE background PUBLIC "-//Apple, Inc.//DTD background V 2.0//EN" "" >
<background>
    <id>2726</id>
    <filler1>0</filler1>
    <cantDelete> <false /> </cantDelete>
    <showPict> <true /> </showPict>
    <dontSearch> <false /> </dontSearch>
    <link rel="stylesheet" type="text/css" href="stylesheet_3106.css" />
    <part>
        <id>3</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>301</left>
            <top>315</top>
            <right>370</right>
            <bottom>337</bottom>
        </rect>
        <style>roundrect</style>
        <showName> <true /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>Example</name>
        <script>on mouseUp

-- GET NAME OF ICON

ask "An ICON will be created using the card art found in the" &&¬
"square marked:" & return &¬
"                 “Draw your ICON here”" & return & return &¬
"Enter a name for your ICON." with sample
if the result is not empty then exit mouseUp -- Cancel
put it into iconName
----------------------------------------------------------------

-- COPY A 32 * 32 PIXEL REGION TO THE CLIPBOARD

choose select tool
put right of btn "leftBorder" into xOrigin
put bottom of btn "TopBorder" into yOrigin
drag from xOrigin, yOrigin to (xOrigin + 31), (yOrigin + 31)
doMenu "Copy Picture"
choose browse tool
----------------------------------------------------------------

-- CONVERT THE IMAGE ON CLIPBOARD TO AN ICON

clipToICON iconName -- applies image on clipboard to an ICON
----------------------------------------------------------------

-- FORCE HYPERCARD TO READ THE MODIFIED RESOURCE FORK

lock screen
set the lockMessages to true
go home
go back
----------------------------------------------------------------

-- DISPLAY NEW ICON

set the icon of btn 1 to iconName
set the name of btn 1 to iconName
show btn 1

end mouseUp</script>
    </part>
    <part>
        <id>4</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <false /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <false /> </lockText>
        <rect>
            <left>18</left>
            <top>8</top>
            <right>264</right>
            <bottom>35</bottom>
        </rect>
        <style>rectangle</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <true /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>Palatino</font>
        <textSize>18</textSize>
        <textStyle>plain</textStyle>
        <textHeight>24</textHeight>
        <name>title</name>
        <script></script>
    </part>
    <part>
        <id>5</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <false /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <false /> </lockText>
        <rect>
            <left>18</left>
            <top>42</top>
            <right>499</right>
            <bottom>283</bottom>
        </rect>
        <style>scrolling</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>Palatino</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <textHeight>16</textHeight>
        <name>Documentation</name>
        <script></script>
    </part>
    <part>
        <id>7</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>474</left>
            <top>314</top>
            <right>501</right>
            <bottom>336</bottom>
        </rect>
        <style>roundrect</style>
        <showName> <true /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>!</name>
        <script>on mouseUp
get fld "title"
put word 1 of it into external
put word 2 of it into resourceType
if resourceType is "XCMD" then
do (external && quote & "!" & quote & return & "get the result")
else if resourceType is "XFCN" then
do (get && external && "(" & quote & "!" & quote & ")")
else
exit mouseUp
end if
answer it
end mouseUp</script>
    </part>
    <part>
        <id>8</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>473</left>
            <top>290</top>
            <right>500</right>
            <bottom>312</bottom>
        </rect>
        <style>roundrect</style>
        <showName> <true /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>?</name>
        <script>on mouseUp
get fld "title"
put word 1 of it into external
put word 2 of it into resourceType
if resourceType is "XCMD" then
do (external && "?" & return & "get the result")
else if resourceType is "XFCN" then
do (get && external && "(" & quote & "?" & quote & ")")
else
exit mouseUp
end if
answer it
end mouseUp</script>
    </part>
    <part>
        <id>12</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>375</left>
            <top>315</top>
            <right>468</right>
            <bottom>337</bottom>
        </rect>
        <style>roundrect</style>
        <showName> <true /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>Show Source</name>
        <script>on mouseUp
toggleSource
end mouseUp</script>
    </part>
    <part>
        <id>13</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>475</left>
            <top>7</top>
            <right>503</right>
            <bottom>38</bottom>
        </rect>
        <style>transparent</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>19678</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>About</name>
        <script>on mouseUp
-- showDialog XCMD by Jay Hodgdon
showDialog 1,6123,"","True"
end mouseUp</script>
    </part>
    <part>
        <id>14</id>
        <type>field</type>
        <visible> <false /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <false /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <true /> </lockText>
        <rect>
            <left>18</left>
            <top>42</top>
            <right>499</right>
            <bottom>283</bottom>
        </rect>
        <style>scrolling</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>Geneva</font>
        <textSize>9</textSize>
        <textStyle>plain</textStyle>
        <textHeight>12</textHeight>
        <name>Source Code</name>
        <script>on mouseUp
toggleSource
end mouseUp

</script>
    </part>
    <part>
        <id>15</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>375</left>
            <top>290</top>
            <right>467</right>
            <bottom>312</bottom>
        </rect>
        <style>roundrect</style>
        <showName> <true /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>Print Doc</name>
        <script>on mouseUp
answer "Print Now?" with "Cancel" or "OK"
if it is not "OK" then exit mouseUp
if the name of me is "Print Doc" then
print field "Documentation"
else
print field "Documentation"
end if
end mouseUp</script>
    </part>
    <part>
        <id>17</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>440</left>
            <top>7</top>
            <right>469</right>
            <bottom>38</bottom>
        </rect>
        <style>transparent</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>13744</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>Home</name>
        <script>on mouseUp
go home
end mouseUp</script>
    </part>
    <name></name>
    <script>on openCard
if the visible of fld "Source Code" is true then toggleSource
end openCard

on toggleSource
if the visible of fld "Source Code" is true then
hide fld "Source Code"
if there is a bg btn "Hide Source" then
set the name of bg btn "Hide Source" to "Show Source"
end if
if there is a bg btn "Print Source" then
set the name of bg btn "Print Source" to "Print Doc"
end if
else
show fld "Source Code"
if there is a bg btn "Show Source" then
set the name of bg btn "Show Source" to "Hide Source"
end if
if there is a bg btn "Print Doc" then
set the name of bg btn "Print Doc" to "Print Source"
end if
end if
end toggleSource</script>
</background>